;;; color.lisp

(in-package :gwee)

(defun color (r g b)
  (sdl:color :r r :g g :b b))

(defun acolor (r g b a)
  (sdl:color :r r :g g :b b :a a))

(defun gray (intensity)
  (color intensity intensity intensity))

(defun color= (a b)
  (and (eql (sdl:r a) (sdl:r b))
       (eql (sdl:g a) (sdl:g b))
       (eql (sdl:b a) (sdl:b b))))
